home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / rexx / QT.lha / QT.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-04-07  |  965 b   |  57 lines
  1. /**** QT.rexx *****************************************************************
  2. *
  3. *    $VER: QT 2.01 (6.4.95)
  4. *
  5. *    Copyright © 1991-95 Klaus A Seistrup @ Magnetic Ink <kas@mink.ping.dk>
  6. *
  7. *******************************************************************************/
  8.  
  9. Hr.0    = 'twelve '
  10. Hr.1    = 'one '
  11. Hr.2    = 'two '
  12. Hr.3    = 'three '
  13. Hr.4    = 'four '
  14. Hr.5    = 'five '
  15. Hr.6    = 'six '
  16. Hr.7    = 'seven '
  17. Hr.8    = 'eight '
  18. Hr.9    = 'nine '
  19. Hr.10 = 'ten '
  20. Hr.11 = 'eleven '
  21.  
  22. Mn.0    = ''
  23. Mn.1    = 'five '
  24. Mn.2    = 'ten '
  25. Mn.3    = 'a quarter '
  26. Mn.4    = 'twenty '
  27. Mn.5    = 'twenty-five '
  28. Mn.6    = 'half '
  29.  
  30. Ny.0    = 'nearly '
  31. Ny.1    = 'almost '
  32. Ny.2    = ''
  33. Ny.3    = 'just after '
  34. Ny.4    = 'after '
  35.  
  36. Up.0    = 'to '
  37. Up.1    = ''
  38. Up.2    = 'past '
  39.  
  40. t        = (TIME('S') + 1650) % 60
  41.  
  42. Hrs    = (t % 60) // 12
  43. Min    = t // 60
  44. Alm    = Min // 5
  45. Div    = (Min % 5) - 5
  46. Upt    = SIGN(Div) + 1
  47.  
  48. IF Div < 0 THEN Div = -Div
  49. OClock = "It's " || Ny.Alm || Mn.Div || Up.Upt || Hr.Hrs
  50. IF Div == 0 THEN OClock = OClock || "o'clock"
  51.  
  52. SAY OClock
  53.  
  54. /*
  55. **  EOF
  56. */
  57.